﻿Namespace Attributes
    <System.AttributeUsage(System.AttributeTargets.Property, AllowMultiple:=False, Inherited:=True), System.Serializable()> _
     Public Class UniqueFieldAttribute
        Inherits Attribute
        Implements IPropertyAttribute

        Public Property CondicionFija As String
        Sub New()

        End Sub

        Public Property NoAccents As Boolean
        Sub New(ByVal NoIgnorarAcentos As Boolean)
            Me.NoAccents = NoIgnorarAcentos
        End Sub

        Sub New(ByVal NoIgnorarAcentos As Boolean, ByVal condicionFija As String)
            Me.NoAccents = NoIgnorarAcentos
            Me.CondicionFija = condicionFija
        End Sub

    End Class

End Namespace
